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SECTION  I 
INTRODUCTION 

The  Aircraft  Generation  Equipment  Emissions  Estimator  (AGEEE) 
is  a  screening  methodology  to  indicate  any  significant  air  qual¬ 
ity  impact  from  U.S.  Air  Force  aircraft.  This  report  contains 
all  the  data  needed  to  perform  AGE EE  analyses.  Aircraft  type, 
number  of  missions,  annual  mean  temperature,  annual  temperature 
variation,  and  AGE  type  are  the  only  input  data  required  for  an 
AGEEE  analysis.  The  analysis  will  estimate  AGE  emissions  result¬ 
ing  from  base  operations.  If  AGEEE  indicates  a  possible  air 
pollution  problem,  a  more  detailed  base  air  quality  analysis 
(e.g..  Air  Quality  Assessment  Model)  may  have  to  be  performed. 

The  AGEEE  air  quality  analysis  is  not  site-specific.  The 
analysis  can  be  performed  by  base-level  personnel  at  any  Air 
Force  base.  AGEEE  will  allow  for  preliminary  air  quality  impact 
analysis  of  mission  changes  at  base  level,  and  result  in  the  more 
effective  use  of  Air  Force  manpower  and  resources. 


BACKGROUND 


The  preliminary  assessment  of  an  Air  Force  base-wide  emis¬ 
sions  inventory  is  usually  performed  at  the  base  level.  In  the 
past  this  analysis  has  been  primarily  an  update  of  the  aircraft 
emissions  inventory.  Emissions  from  Aircraft  Generation  Equip¬ 
ment  (AGE)  have  generally  been  neglected,  because  adequate  infor¬ 
mation  has  not  been  available. 

Base  personnel  do  not  have  the  resources  to  spend  on  complex 
dispersion  evaluations,  (i.e.,  AQAM ) .  They  only  require  a  tool 
to  determine  the  annual  emissions  and  the  worst-case  downfield 
pollution  concentrations  to  obtain  an  estimate  of  the  impact  of 
base  sources  on  air  quality.  This  estimate  gives  base  personnel 
an  indication  of  a  potential  air  pollution  problem.  If  the  esti¬ 
mate  indicates  a  possible  problem,  a  more  detailed  air  quality 
analysis  will  be  required. 

The  base  -  level  personnel  require  an  analytical  method  to 
determine  the  emissions  from  AGE  and  the  impact  of  these  emis¬ 
sions  on  air  quality.  The  procedure  must  contain  all  the  data 
required  to  make  an  AGE  emission  and  an  air  quality  impact  anal¬ 
ysis.  It  must  only  require  minimal  data  to  eliminate  the  wasted 
man-hours.  AGE EE  was  developed  for  these  reasons,  and  thus  will 
aid  in  making  the  base  emissions  inventory  more  accurate. 


SECTION  III 
METHODOLOGY 

A.  AGE  EMISSION  FACTORS 

Aircraft  generation  equipment  emission  factors  were  deter¬ 
mined  by  Dr  J.E.  Sickles,  and  Dr  J.G.  Haidt  of  Research  Triangle 
Institute,  under  work  funded  by  the  AFESC  ( ESL-TR-81-60) .  Emis¬ 
sions  data  are  not  available  in  most  cases,  because  the  engines 
have  been  in  production  and/or  service  for  over  20  years  and  no 
regulations  exist  now  or  at  the  time  of  the  engine  acquisition  to 
require  emissions  testing.  As  a  result,  most  of  the  emission 
factors  assigned  to  the  AGE  were  based  on  the  data  in  Refer¬ 
ence  1.  A  comprehensive  list  of  AGE  is  shown  in  Table  1. 

Average  emissions  factors  foe  selected  AGE  are  listed  in 
Table  2.  Emissions  factors  can  be  determined  on  the  basis  of 
horsepower  and/or  fuel  consumption  rate.  Both  methods  were  used 
to  determine  emission  factors  for  AGE.  Except  as  noted  to  the 
contrary,  the  values  given  in  Table  2  represent  averages  of  emis¬ 
sions  factors  determined  by  the  two  methods.  The  discrepancies 
between  the  two  methods  generally  did  not  exceed  a  factor  of  two, 
but  in  a  few  cases  they  were  as  high  as  a  factor  of  ten. 

It  should  be  noted  that  the  St>2  emissions  factors  were  calcu¬ 
lated  based  on  observed  fuel  consumption  rates  and  assumed  0.01 
weight  percent  sulfur  in  Mogas  and  0.05  weight  sulfur  in  JP-4 
(Reference  2).  In  addition,  survey  results  indicate  that 
JP-4  is  generally  used  in  both  diesel  and  turbine-driven  AGE. 
Emissions  factors  for  the  turbine-powered  AGE  burning  JR-4  were 
secured  from  Garrett  Air  Research.  No  emissions  factors,  how¬ 
ever,  are  available  for  diesel  engines  burning  JP-4  instead  of 
diesel  fuel.  Therefore,  it  was  assumed  that  emissions  factors 
for  diesel  engines  burning  diesel  fuel  are  identical  to  those  for 
diesel  engines  burning  JP-4. 

To  determine  the  emission  factors  for  AGE  not  listed  in 
Table  2,  the  user  must  interpolate  the  factors  which  are  avail¬ 
able  by  using  the  known  characteristics  of  the  desired  piece  of 
AGE,  and  those  characteristics  for  which  emission  factors  are 
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TABLE  1.  COMPREHENSIVE  LIST  OF  AGE 


Type 

Des  iqnat  ion 

Engine 

Heater 

HI 

1 

MCl(HTR) 

1 

1H1 

2 

Cooler 

MA3 

1 

A3 

1 

MAIA(CLR) 

1 

Code  r-D 

2 

Generator 

MD3 

1 

C26 

1 

MD28 

1 

MB15 

2 

90G20P 

2 

MB17 

2 

Generator-D 

2 

AM32A6U 

3 

AM32A60A 

3 

EMU12E 

3 

Compressor 

MCI  A 

1 

MC2A 

1 

MCI  1 

1 

MCI (COM) 

1 

MC7 

1 

MC1A-D 

2 

DR600 

2 

MAI  A 

3 

Hydraulic 

MJ1 (HTS) 

1 

Test  Stand 

MJ2A 

1 

TTU2  28E 

i 

TTU2  28E1A 

i 

D5 

1 

TTU2  28E1B 

2 

Bomb  lift 

MJ1 ( BMB) 

1 

MJ 1 A 

1 

MHU83E 

1 

MHU83AE 

1 

MHU83BE 

1 

Light  Cart 

NF2 

1 

Pressure  Tester 

M3  2T1 

1 

V4 

1 

MBl 

1 

Jacking  Manifold 

M27M1 

1 

Mi  seel  laneous 

Blower-G 

1 

De  ice  r-G 

1 

Washer-G 

1 

Sprayer-G 

1 

Qtpennage-G 

1 

Qnpennage-D 

2 

Welde  r-D 

2 

4 


given.  This  procedure  is  sound,  because  the  emission  factors 
that  are  given  are  only  estimates,  not  actual  values.  There  is 
no  necessity  for  absolute  accuracy,  only  relative  accuracy. 

B.  AIRBASE-DEPENDENT  ELEMENTS 

1.  Availability  Factor  (g) 

The  availability  factor  is  intended  to  account  for  the 
possibility  that  an  airbase  possesses  AGE  of  different  types 
which  are  functionally  equivalent  and  used  interchangeably, 
depending  on  availability.  The  availabiLity  factor  is  calculated 
based  on  the  percentage  of  the  total  shared  by  each  type  of 
interchangeable  AGE.  For  example,  the  Hi  and  1H1  heaters  are 
interchangeable.  If  a  given  airbase  has  13  His  and  7  lHls  ,  then 
the  availability  factors  are  .65  and  .35,  respectively. 

2.  Temperature  Factor  (y) 

Temperature  affects  the  t.  -uency  of  use  of  heaters  and 
coolers.  Generators  are  used  for  every  landing  and  takeoff 
(LTO),  while  heaters  find  use  during  only  a  fraction  of  the 
annual  LTOs.  Therefore,  fuel  consumption  and  emissions  per  LTO 
of  heaters  and  coolers  on  an  average  basis  must  be  reduced.  A 
temperature  factor  is  introduced  to  account  for  this  reduction. 
For  a  given  annual  mean  temperature,  (T)  and  temperature  varia¬ 
tion  (AT)  at  an  airbase,  Equation  (1)  defines  the  factor  for 
heaters  and  Equation  (2)  for  coolers. 


heater  = 


AT 

40  -  T  +  ~2~ 


AT 
2  I  2 


[-  —  1 

[T  +  2  -  80 J 

■  m 


All  temperatures  are  in  °F. 


cooler  = 


(1) 


unless  if  40  -  T  +  AT/2C0  then  y  =  0 


(2) 


unless  if  T  +  AT/2  -  80<0  then  Y  =  0 


HAND  CALCULATION!* 


A.  PROCEDURE 

This  section  contains  examples  of  how  AGE  emissions  could  be 
calculated  by  hand. 

The  steps  to  be  taken  are  as  follows: 

1.  Determine  the  aircraft  in  question 

2.  Determine  the  desired  AGE  and  associated  temperature  fac¬ 
tor  (  Y  ) 

a.  Heater  -  Equation  (1) 

b.  Cooler  -  Equation  (2) 

c.  Other  AGE  -  Y  =  1 

3.  Calculate  the  availability  factor  (6  ) 

6  =  _ Number  of  specific  AGE  _ 

Total  number  of  general  type  AGE 

Use  0=1  unless  a  base  has  different  types  of  AGE  which 
function  equivalently. 

See  Section  III.B.l  tor  more  information. 

4.  Find  the  Standard  Universal  Operating  Time  (t)  in  Table  3. 

5.  Calculate  the  Average  Service  Time  (t). 

t  *  Y  t  S 

6.  Calculate  the  average  emissions  (W)  using  the  emission 
factors  (  if  )  in  Table  2. 

_  71  t 

W  =  1,0 OU  =  kg  pollutant  per  LTO 

To  determine  the  total  pol Lutants  (W),  multiply  W  by 
the  total  number  of  LTOs  (L). 


AVERAGE  EMISSIONS  FACTORS  FOR  SELECTED  AGE 
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B.  EXAMPLES 


1.  Example  1  _  _ 

Given:  F~4  aircraft,  Hi  gas  heater,  T  *  50°F,  AT  = 

10  total  LTO 


Find:  Total  emissions 
Solut ion: 

Step  1 :  F-4 

Step  2:  Hi  gas  heater 
The  ref ore , 

Yheater  = 


Y heater  = 


.125 


Step  3:  B  =  1 

Step  4:  t  =  .70  hrs  (from  Table  3) 

Step  5:  t  =  Y  t  3  *  . 1 25 ( . 70 ) ( 1 )  =  .0875  hrs 
Step  6:  From  Table  2:  tt(CO)  =  3376  g/hr 

n  ( HC )  =  212  g/hr 
tt(NOX)  =  67  g/hr 
MSOX)  =  2.1  g/hr 
n(Part)  =  6.1  g/hr 

JT  _t_L 

W  =  WL  =  1000 

3  37  6(  U  .  08  75 )  (10) 

W(CO)  =  -  =  2.954  kg  CO 

1000 

212(0.0875X10) 

W(HC )  =  -  =  .1855  kg  HC 

1000 


W(NOX) 


67(0.0875) (10) 
1000 


.0586  kg  NOX 


1  1 


40° 


2 . i ( U . 08  75 ) (10) 

W(SOX)  *  -  *  .00184  kg  SOX 

1000 

6. i( .0875) (10) 

W(Part)*  - —  ■  .00534  kg  Part 

1000 


2.  Example  2 

Given:  B-52  with  10  total  LTO,  14  HI  heaters,  6  1H1 

heaters,  T  =  50°F,  AT  *  40°F 

Find:  Total  emissions 
Solut ion: 


Step 

1 : 

B-52 

Step 

2: 

14  HI  heaters 

,  6  1H1 

heaters 

Therefore, 

theater  = 

[40  -  T 

—  -1  2 

AT| 

+  2  J 

Tat 

2  |_  2 

]’ 

Y  heater  = 

.125 

Step 

3: 

14 

3  ( H 1 )  =  20  = 

.70 

6 

B(1H1)  =  20  = 

.30 

Step 

4  : 

t ( Hi )  =  2.69 

t(lHl)  =  2.69 

Step  5:  t ( HI )  =  YtB  =  ( . 1 25 ) ( 2 . 69 ) ( . 70 )  =  .235  hrs 


M 


Step  6:  For  Hi  ir(CO)  =  3  37  6  g/hr 

ir(HC)  =  212.0  g/hr 
*(N0X)  =  67  g/hr 
n(SOX)  =  2.1  g/hr 
w(Part)  =  6.1  g/hr 
For  1H1  ir(CO)  =  64  g/hr 

tt(  HC )  =  28.0  g/hr 
tt(NOX)  =  291  g/hr 
tt(SOX)  =  7.3  g/hr 
ir(Part)  =  21.0  g/hr 

TT  tL 

W  =  WL  =  1000 

3376( .235) (10)  64(.101)(10) 

W(CO)  =  - +  -  =  8.01  kg  CO 

1000  1000 

212. 0(. 235) (10)  28. 0( .101) (10) 

W ( HC )  =  -  +  =  .53  kg  HC 

1000  1000 

6  7( .235) ( 10 )  291( .101) (10) 

W(NOX)  *  -  +  =  .45  kg  NOX 

1000  1000 

2. 1( .235) (10)  7. 3( .101) (10) 

W(SOX)  =  ■  -  —  +  -  =  .01  kg  SOX 

1000  1000 

6. 1( .235) (10)  21. 0( .101) (10) 

W(Part)  =  -  +  =  .04  kg  Part 

1000  100U 


r. 


SECTION  V 

COMPUTER  CALCULATIONS 


A.  PROCEDURE 

The  AFESC  has  adapted  the  AGEBE  handbook  for  use  on  the  Apple 
II  microcomputer.  The  program  enables  the  user  to  save  time  and 
effort  by  inputting  minimal  information,  while  eliminating  the 
need  to  search  through  tables  and  make  calculations.  A  copy  of 
the  source  listing  can  be  found  in  Appendix  A. 

B.  EXAMPLES 

1.  Example  1 

Given:  F-4  aircraft.  Hi  gas  heater,  T  *  50°F,  aT  =  40°F, 

10  LTOs 

Find:  Total  emissions 

Solut ion: 

1 .  Pick  the  alACJia^t  you  would  tike  to  £lnd  the.  AGE  pollutant 
em-iAAlonA  fioA  and  eivteA.  the  name  juAt  oa  It  is  shown  In 
the  menu.  F-4 

2.  How  many  LTOa  do  you  want  the  AGE  emissions  calculated 
iox?  10 

3.  What  is  the  Annual  Mean  T empeAatuAe  IF)?  50 

4.  What  is  the  T empenatuAe  Valuation  (F)?  40 

5.  Input  necessany  AGE  in^oAmation  j ok  a  heaten.  that  but 
describes  you A  AGE. 

Responses:  0  =  No  mi ssions  calculated  &oa  a  heateA 

1  =  Mogas 

2  =  V ieselfJP-4 

3  =  Both  .‘togas  and  Vies  el/ JP- 4 
Enten.  youA.  Aesponse.  l 

6.  Vo  you  have  anymore  AGE  that  you  would  tike  to  calculate 
the  pollutant  emissions  fioA,  [Y  ]  oa  [W]?  n 

Total  AGE  emissions  from  all  F-4  LTOs  (kg) 

CO  =  2.954 
HC  =  .1855 
NOX  =  .058625 
SOX  =  1 . 8375E-03 
PM  =  5. 3375E-03 
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Example  2 

Given:  B-S2  aircraft,  14  Hi  heaters,  6  1H1  heaters, 

T  =  SU°F,  AT  =  40°  F ,  10  LTOs 

Find:  Total  emissions 
Solution : 

1.  Pick  the  aircraft  you  would  tike,  tv  find  the  AGE  pollutant 
emittiont  for  and  enter  the  name  jutt  at  it  it  thorn  on 
the  menu,  b-52 

2.  How  many  LTOt  do  you  toant  the  AGE  vmittio nt  calculated  for?  10 

3.  What  it  the  Annual  Mean  Temperature.  (F If  50 

4.  What  it  the  Temperature  {Satiation  (Fj?  40 

5.  Input  necettary  AGE  information  for  a  h eaten,  that  best  detcribet 
youA  AGE. 

R etpontet:  0  =  No  emittiont  calculated  for  a  heateA 

1  =  Mogat 

2  =  Vietel/JP-4 
Enter  youA  ret ponte.  3 

6.  How  many  f.iogat  heateAt  do  you  have ?  6 

7.  How  many  VietellJP~4  heateAt  Jo  you  have?  14 

8.  Vo  you  have  anymore  AGE  that  you  would  like  to  calculate  the 
pollutant  emittiont  for,  [V]  oa  [N]?  n 

Total  AGE  emissions  from  all  B-52  i.TOs  (kg) 

CO  =  8.01082 
HC  =  .52724 
NOX  =  .4512475 
SOX  =  .01230675 


PM  =  .035541625 


CONCLUSIONS 


Anyone  needing  to  calculate  emissions  from  aircraft  generation 
equipment  no  longer  has  to  operate  a  large  air  quality  model  to 
obtain  limited  results.  With  the  handbook,  a  user  can  compute  the 
emissions  on  a  handheld  calculator,  or  the  source  listing  in 
Appendix  A  can  be  input  into  a  microcomputer  for  further  ease  of 
operation. 


APPENDIX  A 

PROGRAM  SOURCE  LISTING 


This  appendix  presents  a  source  listing  for  the  computer  pro¬ 
gram  developed  by  AFLSC  to  aid  in  calculating  AGE  emissions  with 
the  Apple  II  microcomputer. 


1LIST 


10  REM  AIRCRAFT  GENERATION 

EQUIPMENT  EMISSIONS  ESTIMATO 
R-ACEEE 

20  REM  DESIGNED  BY  LISA  RAMOS 
30  HOME  «  PRINT  '*******•••**•*• 


40  PRINT  i  PRINT  i  PRINT  t  PRINT 
i  PRINT  TAB!  11) 'AIRCRAFT  C 
ENERATION* 

30  PRINT  i  PRINT  TA*<  Sl'EQUIPM 
ENT  EMISSIONS  ESTIMATOR" 

60  PRINT  t  PRINT  TASI  IF) ‘-AGEE 
E' 

FO  PRINT  s  PRINT  »  PRINT  t  PRINT 
i  PRINT  i  PRINT 

SO  PRINT  TAB<  10) 'DESIGNED  BYlL 
ISA  RAMOS' 

90  PRINT  >  PRINT  TAB!  22)'AUGUS 
T  2, 1983' 

100  PRINT  i  PRINT  I  PRINT  '•***• 


110  FOR  PAUSE  -  1  TO  SOOOl  NEXT 
PAUSE 
120  CLEAR 

130  HOME  i  PRINT  'BELOW  IS  A  MEN 
U  THAT  LISTS  THE  DIFFERENTAI 
RCRAFT  AVAILABLE  FOR  THIS  PR 
OGRAM. ' 


140 

FOR  PAU8E  •  1 

TO  2000t  NEXT 

PAUSE 

130 

HOME  : 

PRINT 

TABI  13) 'FIGHT 

ER  AIRCRAFT' 

160 

PRINT 

TABI  12)" . 

170 

PRINT 

TAB<  18) “F*4* 

iao 

PRINT 

i  PRINT 

TABI  18) "F- 13 

190 

PRINT 

i  PRINT 

TABI  181-F-16 

200 

PRINT 

3' 

i  PRINT 

TABI  ISl-F-lO 

210 

PRINT 

6' 

i  PRINT 

TABI  181-F-iO 

220 

PRINT 

1* 

PRINT 

i  PRINT 

TABI  181-F-U 

230 

:  PRINT 

i  PRINT  TABI 

ID-OBSERVATION  AIRCRAFT' 

240 

PRINT 

TABI  10)' . 

230 

PRINT 

TAB!  18) "0-2" 

260 

PRINT 

«  PRINT 

TABI  IS) "OV- 1 

270 

PRINT 

i  PRINT 

i  INPUT  'IF  YO 

c 

> 

* 

m 

READY  TO  SEE  THE  REST 

OF  THE 

MENU,  PRESS  RE 

TURN.  * 

»z» 

280 

HOME  « 

PRINT 

TABI  14) 'CARCO 

AIRCRAFT' 


290 

PRINT 

TABI  13) 

“  - - 

300 

PRINT 

TABI  18) 

-C-3- 

310 

PRINT 

»  PRINT 

TABI 

18) *C-7" 

320 

PRINT 

i  PRINT 

TABI 

lS)'C-9' 

330 

PRINT 

O' 

i  PRINT 

TABI 

18) *C- 13 

340 

PRINT 

1* 

PRINT 

i  PRINT 

TABI 

18) 'C- 13 

330 

«  PRINT 

TABI 

18) "C- 13 

3' 

360 

PRINT 

1* 

PRINT 

i  PRINT 

TABI 

18) *C* 14 

370 

t  PRINT 

TABI 

18) 'KC-1 

33' 

380 

PRINT 

i  PRINT  » 

PRINT  i  INPUT 

‘IF  YOU  ARE  READY  TO  SEE  THE 
REST  OF  THE  MENU.  PR 

ESS  RETURN. 'jZ* 


390 

HOME  i  PRINT  TABI  13) 'TRAIN 
ER  AIRCRAFT' 

400 

PRINT 

TABI  12) 

410 

PRINT 

TAB!  19) 

-T-33- 

420 

PRINT 

i  PRINT 

TABI  l9)'T-37 

430 

PRINT 

«  PRINT 

TABI  1 9  > ' T - 38 

440 

PRINT 

J  PRINT 

TABI  19I-T-39 

430 

PRINT 

!  PRINT 

TABI  19 ) “T-43 

460 

PRINT  i  PRINT  i  PRINT  TABI 
13) 'ATTACK  AIRCRAFT' 

470 

PRINT 

TABI  12) 

480 

PRINT 

TABI  19) 

-A-7- 

490 

PRINT 

i  PRINT 

TABI  19 ) ' A- 1 0 

300 

PRINT 

i  PRINT 

TABI  19 ) ' A-37 

310 

PRINT 
ADY  TO 

i  INPUT  ' 
SEE  THE 

IF  YOU  ARE  RE 
REST  0 

F  THE  MENU,  PRESS  RETURN. 'jZ 


320 

HOME  t 

PRINT  TABI  13)' BOMBE 

R  AIRCRAFT' 

330 

PRINT 

TABI  12)' . 

340 

PRINT 

TABI  18) 'B-32' 

330 

PRINT 

i  PRINT  TABI  18) *FB- 1 

11' 

360 

PRINT 

«  PRINT  i  PRINT  TABI 

16) 'HELICOPTER' 

370 

PRINT 

TABI  13)' . 

380 

PRINT 

TABI  19) "H- 1 ' 
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390  PRINT  :  PRINT  TAB<  19)‘H-3" 

600  PRINT  J  PRINT  TAB<  19)“H-33 

610  PRINT  i  PRINT  I  INPUT  "IF  Y0 
U  WOULD  LIKE  TO  SEE  THE  MENU 
AGAIN, ENTER  <Y>,  OTHERWISE 
ENTER  <N>.';YS 

620  IF  YS  -  *Y*  THEN  GOTO  130 
630  IF  Y*  ■  “YES'  THEN  GOTO  130 

640  IF  YS  «  * <Y> “  THEN  GOTO  130 

630  HOME  s  INPUT  "PICK  THE  AIRCR 
AFT  YOU  WOULD  LIKE  TO  FI NOTH 
E  ACE'  POLLUTANT  EMISSIONS 
FOR  AND  ENTER  THE  AIRCRAFT 
NAME  JUST  AS  IT  IS  SHOWN 
IN  THE  MENU.'; A* 

660  PRINT  s  PRINT  i  INPUT  “HOW  M 
ANY  LTO  S  DO  YOU  WANT  THE  A 
CE'  EMISSIONS  CALCULATED 
FOR?- ;NA 

670  PRINT  s  PRINT  i  INPUT  “WHAT 
IS  THE  ANNUAL  MEAN  TEMPERATU 
RE  ( F )?* ; MT 

680  PRINT  i  PRINT  i  INPUT  "WHAT 
IS  THE  TEMPERATURE  VARIATION 
(F)"»-;TV 

690  HOME  i  PRINT  'INPUT  NECESSAR 
Y  ACE'  INFORMATION  FOR  A  HE 
ATER  THAT  BEST  DESCRIBES  YOU 
R  *  ACE ' • * 

700  PRINT  : ' PR I NT  "RESPONSES!  0» 

NO  EMISSIONS  CALCULATED ' 

710  PRINT  TAB(  14) "FOR  A  HEATER 

720  PRINT  !  PRINT  TAB!  12>“1«M0 
CAS” 

730  PRINT  !  PRINT  TAB!  12) “2*01 
ESEL/JP-4" 

740  PRINT  :  PRINT  TAB<  12I"3*B0 
TH  MOCAS  AND  DlESEL/JP-4" 

730  PRINT  :  INPUT  “ENTER  YOUR  RE 
SPONSE. “ ;F1 

760  IF  FI  *  0  THEN  GOTO  1790 
770  LET  N1  *  40  -  MT  ♦  TV  /  2 
780  LET  TF  *  N1  *  2  /  (2  *  ( TV  / 

2)  *  2) 

790  IF  N1  <  >0  THEN  TF  *  0 

800  IF  TF  <  0  THEN  TF  *  0 

810  IF  TF  >  1  THEN  TF  «  1 

820  IF  FI  ■  1  THEN  AI  •  1 

830  IF  FI  *  2  THEN  AI  ■  1 

840  IF  FI  *  1  OR  FI  *  2  THEN  COTO 

900 

830  PRINT  i  PRINT  :  INPUT  “HOW  M 
ANY  MOCAS  HEATERS  DO  YOU  HAV 
E?  " ; B1 

860  PRINT  :  PRINT  :  INPUT  "HOW  M 


ANY  D I ESEL/JP-4  HEATERS  DO  Y 
OU  HAVE?  - ; B2 
870  LET  B3  •  B1  +  B2 


880 

LET  B4 

l  * 

B 1  /  B3 

890 

LET  B3 

a 

B2  /  B3 

900 

IF 

A* 

a 

"F-4"  THEN  UT  *  .7 

910 

IF 

A* 

a 

"F- 13"  THEN  UT  »  .7 

920 

IF 

A* 

a 

-F-16-  THEN  UT  ■  .7 

930 

IF 

AS 

a 

-F-103-  THEN  UT  »  .7 

940 

IF 

AS 

a 

•F-106"  THEN  UT  -  .7 

930 

IF 

AS 

a 

“ F -  1 1 1 "  THEN  UT  »  .7 

960 

IF 

AS 

a 

-0-2"  THEN  UT  *  0 

970 

IF 

AS 

a 

-OV-IO-  THEN  UT  =  0 

980 

IF 

AS 

a 

-C-3-  THEN  UT  «  3.21 

990 

IF 

AS 

a 

-C-7"  THEN  UT  »  3.21 

1000 

IF 

1 

IF 

AS 

-C-9-  THEN  UT  *  3.2 

1010 

AS 

-C-130"  THEN  UT  *  3 

.21 

t  020 

IF 

AS 

-C-131-  THEN  UT  «  3 

.21 

1030 

IF 

AS 

" C -  1 33 "  THEN  UT  *  3 

.21 

1040 

IF 

AS 

" C -  1 4 1  -  THEN  UT  «  3 

.21 

1030 

IF 

AS 

-KC-133-  THEN  UT  * 

2.87 

1060 

IF 

AS 

"T-33"  THEN  UT  -  .7 

0 

1070 

IF 

AS 

“T-37-  THEN  UT  =  .  2 

1080 

IF 

AS 

S 

" T -  38“  THEN  UT  =  0 

1090 

IF 

A 

AS 

3 

" T- 39 "  THEN  UT  =  .7 

1  100 

U 

IF 

AS 

= 

”T-43“  THEN  UT  =  0 

1110 

IF 

AS 

X 

“ A - 7 “  THEN  UT  =  .23 

1120 

IF 

AS 

= 

“A -  10“  THEN  UT  =  .2 

3 

1130 

IF 

AS 

X- 

“A- 37“  THEN  UT  =  . 2 

3 

1  140 

IF 

AS 

X 

"B-S2"  THEN  UT  =  2. 

69 

1  150 

IF 

AS 

X 

"FB- 111"  THEN  UT  * 

2.69 

1160 

IF 

AS 

s 

“ H -  1 “  THEN  UT  =  1 

l  170 

IF 

AS 

= 

“H-3"  THEN  UT  =  0 

1180 

IF 

AS 

a 

"H-53"  THEN  UT  »  1 

1  190 

IF 

1230 

FI 

X 

1  OR  FI  =  2  THEN  COTO 

1200 

LET 

AI 

X 

B4  ♦  TF  ♦  UT 

1210 

LET 

A2 

* 

B3  *  TF  »  UT 

1220 

IF 

FI 

a 

3  THEN  COTO  1240 

1230 

LET 

AI 

X 

AI  ♦  TF  ♦  UT 

1240 

IF 

FI 

s 

1  THEN  EM  *  3376 
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1230  IF  FI  »  2  THEN  EM  -  64 

1260  IF  FI  »  3  THEN  Ul  -  3376 

1270  IF  FI  -  3  THEN  U2  -  64 

1280  IF  FI  *  3  THEN  COTO  1310 

1290  LET  El  *  EM  •  AI  *  NA  /  100 
0 

1300  IF  FI  -  1  OR  FI  -  2  THEN  COTO 
1340 

1310  LET  Cl  *  Ul  •  A1  *  NA  /  100 
0 

1320  LET  C2  »  U2  *  A2  *  NA  /  100 
0 

1330  LET  El  *  Cl  ♦  G2 
1340  IF  FI  »  1  THEN  EM  -  212 

1330  IF  FI  *  2  THEN  EM  -  28 

1360  IF  FI  •  3  THEN  Ul  «  212 

1370  IF  FI  «  3  THEN  U2  ■  28 

1380  IF  FI  •  3  THEN  COTO  1410 
1390  LET  E2  »  EM  *  AI  *  NA  /  100 
0 

1400  IF  FI  »  1  OR  FI  »  2  THEN  COTO 
1440 

1410  LET  Cl  >  U1  •  A1  •  NA  /  100 
0 

1420  LET  C2  »  U2  •  A2  •  NA  /  100 
0 

1430  LET  E2  »  Cl  ♦  G2 
1440  IF  FI  »  1  THEN  EM  «  67 

1430  IF  FI  «  2  THEN  EM  -  291 

1460  IF  FI  »  3  THEN  Ul  «  67 

1470  IF  FI  -  3  THEN  U2  »  291 

1 480  IF  FI  ■  3  THEN  COTO  1310 
1490  LET  E3  *  EM  *  A1  *  NA  /  100 
0 

1300  IF  FI  *  1  OR  FI  »  2  THEN  COTO 
1340 

1310  LET  Cl  »  Ul  •  A1  *  NA  /  100 
0 

1320  LET  C2  »  U2  *  A2  *  NA  /  100 
0 

1330  LET  E3  -  Cl  +  C2 
1340  IF  FI  *  1  THEN  EM  *  2. 1 

1330  IF  FI  *  2  THEN  EM  •  7.3 

1360  IF  FI  *  3  THEN  Ul  «  2.  1 

1370  IF  FI  *  3  THEN  U2  *  7.3 

1380  IF  FI  »  3  THEN  COTO  1610 
1390  LET  E4  =  EM  »  AI  *  NA  /  100 
0 

1600  IF  FI  »  I  OR  FI  =  2  THEN  COTO 
1640 

1610  LET  Cl  *  Ul  *  A1  *  NA  /  100 
0 

1620  LET  C2  *  U2  •  A2  •  NA  /  100 
0 

1630  LET  E4  *  Cl  ♦  C2 


1640 

IF 

FI 

* 

i 

THEN 

EM 

a 

6.  1 

1630 

IF 

FI 

S 

2 

THEN 

EM 

a 

21 

1660 

IF 

FI 

S 

3 

THEN 

Ul 

a 

6.  1 

1670 

IF 

FI 

a 

3 

THEN 

U2 

a 

21 

1680 

IF 

FI 

a 

3 

THEN 

COTO  17 

1690  LET  E3  -  EM  *  A1  ♦  NA  /  100 
0 

1700  IF  FI  ■  1  OR  FI  *  2  THEN  COTO 
1740 

1710  LET  Cl  ■  Ul  *  A1  *  NA  /  100 
0 

1720  LET  G2  -  U2  *  A2  »  NA  /  100 
0 

1730  LET  E3  ■  Cl  ♦  G2 

1740  COSUB  7700 

1730  PRINT  s  PRINT  »  INPUT  ’DO  Y 
OU  HAVE  ANYMORE  ACE-  THAT  Y 
OU  WOULD  LIKE  TO  CALCUL 

ATE  THE  POLLUTANT  EMISSION 
S  FOR,  <Y>  OR  <N>  ?-;W* 


1760 

IF 

W« 

«  -N- 

THEN 

COTO  7490 

1770 

IF 

A 

W* 

•  "NO' 

THEN 

COTO  749 

1780 

U 

IF 

w* 

*  *<N> 

•  THEN 

COTO  74 

90 

1790 

HOME  : 

PRINT 

"INPUT  NECESSA 

RY  ACE-  INFORMATION  FOR  A  C 
OOLER  THAT  BEST  DESCRIBES  YO 


UR  - ACE - . • 


1800 

PRINT 

: 

PRINT  "RESPONSES:  0 

•NO 

EMISSIONS  CALCULATED" 

1310 

PRINT 

TAB!  14) "FOR  A  COOLE 

R" 

1820 

PRINT 

: 

PRINT  TAB!  121‘1=M 

OCAS 

1830 

PRINT 

: 

INPUT  "ENTER  YOUR  R 

ESPONSE. ■ 

;F2 

1840 

IF 

F2 

a 

0  THEN  COTO  2320 

1850 

TF  = 

0: 

AI 

•  0:UT  »  0 : AI  »  0: 

EM  = 

0: 

El 

•  0:E2  *  0 : E3  *  0: 

E4  * 

0: 

E3 

•  0 

1360 

LET 

1  N2 

a 

MT  +  TV  /  2  -  30 

1370 

LET 

1  TF 

a 

N2  *  2  /  12  «  (TV  / 

21  A 

21 

1380 

IF 

N2 

< 

«  0  THEN  TF  »  0 

1390 

IF 

TF 

( 

0  THEN  TF  •  0 

1900 

IF 

TF 

> 

1  THEN  TF  *  i 

1910 

LET 

'  AI 

= 

1 

1920 

IF 

A* 

a 

"F-4"  THEN  UT  x  .53 

1930 

IF 

A* 

"F - 15"  THEN  UT  =  0 

1940 

IF 

A* 

"F-16"  THEN  UT  »  0 

1950 

IF 

A* 

= 

"  F  -  1  03  “  THEN  UT  *  0 

1960 

IF 

A* 

"F-106"  THEN  UT  »  . 

58 

1970 

IF 

A* 

"F- III"  THEN  UT  »  0 

1980 

IF 

A* 

"0-2"  THEN  UT  *  0 

1990 

IF 

A* 

■OV-IO"  THEN  UT  »  0 

2000 

IF 

A* 

"C-S"  THEN  UT  *  1.3 

2010 

IF 

A* 

"C-7"  THEN  UT  «  1.3 

20 


3 

2020  IF  A*  »  "C  -9"  THEN  UT  *  0 

2030  IF  A«  »  “C - 1 30"  THEN  UT  *  1 

>  33 

2040  IF  A*  =»  "C-131"  THEN  UT  ■  0 

2030  IF  A*  -  " C -  1 33 '  THEN  UT  •  I 

•  33 

2060  IF  A*  -  "C- 141 “  THEN  UT  -  1 
.33 

2070  IF  A*  «  “KC- 133'  THEN  UT  ■ 
.78 

2080  IF  A«  »  'T-33'  THEN  UT  -  0 

2090  IF  A*  -  ' T - 37 '  THEN  UT  *  0 

2100  IF  A*  -  " T - 38 "  THEN  UT  -  0 

2110  IF  A*  »  'T-39-  THEN  UT  »  .3 

8 

2120  IF  A*  «  "T-43"  THEN  UT  *  0 

2130  IF  A*  *  ' A - 7 '  THEN  UT  *  0 

2140  IF  A*  »  "A- 10"  THEN  UT  »  0 

2130  IF  A*  *  -A-37-  THEN  UT  «  0 

2160  IF  A*  »  "B-32-  THEN  UT  =  2. 

2 

2170  IF  A*  *  ' FB- Ill"  THEN  UT  « 

0 

2180  IF  A*  ■  "H-l*  THEN  UT  »  0 

2190  IF  A*  «  "H-3-  THEN  UT  *  0 

2200  IF  A*  «  "H-33-  THEN  UT  »  0 

2210  LET  A1  ■  At  #  TF  *  UT 
2220  LET  El  *  24036  *  A1  *  NA  / 
1000 

2230  LET  E2  =*  933  *  A1  *  NA  /  10 
00 

2240  LET  E3  »  623  •  A1  *  NA  /  10 
00 

2230  LET  E4  *3.9  *  A 1  *  NA  /  10 
00 

2260  LET  E3  =  40  *  A1  •  NA  /  100 
0 

2270  COSUB  7700 

2280  PRINT  :  PRINT  :  INPUT  "DO  i' 
OU  HAVE  ANYMORE  ACE'  THAT  Y 
OU  WOULD  LIKE  TO  CALCUL 

ATE  THE  POLLUTANT  EMISSION 
S  FOR.  <Y>  OR  <N>  ?" ; W* 

2290  IF  W*  =  "N"  THEN  COTO  7490 

2300  IF  Wl  =  "NO"  THEN  COTO  749 
0 

2310  IF  W«  •  “ <N> ”  THEN  COTO  74 
90 

2320  HOME  :  PRINT  "INPUT  NECESSA 
RY  ACE'  INFORMATION  FOR  A  C 
ENERATOR  THAT  BEST  DESCRIBES 
YOUR  ' ACE ' . " 

2330  PRINT  :  PRINT  "RESPONSES:  0 
■NO  EMISSIONS  CALCULATED" 
2340  PRINT  TAB!  14)  "FOR  A  CENER 
ATOR" 

2330  PRINT  :  PRINT  TAB!  12)"1*M 


OCAS" 

2360  PRINT  :  PRINT  TAB(  12>"2*D 
IESEL/JP-4" 

2370  PRINT  :  PRINT  TAB<  12)"3»D 
IESEL  WITH  TURBINE  ENGINE" 

2380  PRINT  :  INPUT  "ENTER  YOUR  R 
ESPONSE. "(F3 

2390  IF  F3  •  0  THEN  COTO  3330 

2400  TF  ■  0:AI  ■  OlUT  ■  0:A1  «  0: 

EM  =  OiEl  ■  0:E2  »  0:E3  -  0: 

E4  ■  0 : E3  -  0 

2410  LET  TF  «  1:AI  *  1 

2420  IF  A*  ■  *F-4"  AND  F3  ■  1  THEN 
UT  ■  .33 

2430  IF  A*  -  "F-4"  AND  F3  *  2  THEN 
UT  »  0 

2440  IF  A*  »  "F-4"  AND  F3  ■  3  THEN 
UT  ■  1.1 

2430  IF  A*  -  -F-13"  AND  F3  ■  1  THEN 
UT  ■  0 

2460  IF  A*  ■  "F-13"  AND  F3  =  2  THEN 
UT  =  .07 

2470  IF  A*  =  "F-13"  AND  F3  «  3  THEN 
UT  =  1.1 

2480  IF  A*  ■  "F- 16"  AND  F3  ■  1  THEN 
UT  -  0 

2490  IF  A*  »  "F-16"  AND  F3  ■  2  THEN 
UT  *  0 

2500  IF  A»  =  "F-16"  AND  P3  *  3  THEN 
UT  ■  1.1 

2510  IF  A*  *  "F-103-  AND  F3  ■  1  THEN 
UT  ■  .33 

2320  IF  A*  »  "F-103"  AND  F3  »  2  THEN 
UT  ■  0 

2330  IF  A*  ■  "F-103"  AND  F3  =  3  THEN 
UT  =  1.1 

2540  IF  A*  =  "F-106"  AND  F3  =  1  THEN 
UT  =  .53 

2550  IF  A*  »  F-106"  AND  F3  *  2  THEN 

UT  »  0 

2560  IF  A*  *  "F-106"  AND  F3  =  3  THEN 
UT  =>  0 

2570  IF  A*  =  "F-lll"  AND  F3  =  1  THEN 
UT  -  .53 

2330  IF  A*  =  "F-lll"  AND  F3  =  2  THEN 
UT  =  0 

2390  IF  A*  «  “F-lll"  AND  F3  ■  3  THEN 
UT  «  1.1 

2600  IF  A*  ■  "0-2”  AND  F3  ■  1  THEN 
UT  ■  ,33 

2610  IF  A*  =  "0-2"  AND  F3  ■  2  THEN 
UT  =  0 

2620  IF  A*  »  "0-2"  AND  F3  »  3  THEN 
UT  ■  0 

2630  IF  A*  »  "0V-10"  AND  F3  »  1  THEN 
UT  ■  .33 

2640  IF  A*  »  "OV-IO"  AND  F3  »  2  THEN 
UT  ■  .30 

2630  IF  A*  ■  "OV-IO"  AND  F3  ■  3  THEN 
UT  »  0 


2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2730 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2830 

2860 

2870 

2880 

2390 

2900 

2910 

2920 

2930 

2940 

2930 


IF  AC  • 
UT  »  3.  12 
IF  AC  - 
UT  «  7.6 
IF  AC  • 
UT  •  3.83 
IF  AC  « 
UT  •  3.  12 
IF  AC  » 
UT  ■  0 
IF  AC  ■ 
UT  ■  0 
IF  AC  « 
UT  •  3.12 
IF  AC  • 
UT  «  0 
IF  AC  » 
UT  *  0 
IF  AC  « 
UT  *  3.12 
IF  AC  « 
UT  *  0 
IF  AC  « 
UT  »  0 
IF  AC  « 
UT  *  3. 12 
IF  AC  « 
UT  •  0 
IF  AC  » 
UT  »  0 
IF  AC  3 
UT  «  3. 12 
IF  AC  . 
UT  •  7.6 
IF  AC  » 
UT  3  3.83 
IF  AC  » 
UT  =  3.12 

IF  AC  3 

UT  3  7.6 
IF  AC  » 
UT  =  3.83 
IF  AC  = 
THEN  UT 

IF  AC  * 
THEN  UT 
IF  AC  • 
THEN  UT 
IF  AC  • 
UT  =  .33 
IF  AC  » 
UT  «  0 

IF  AC  3 

UT  *  0 

IF  AC  3 

UT  *  .23 
IF  AC  3  ■ 
UT  «  0 
IF  AC  * 
UT  3  0 


'C-3'  AND  F3  *  1  THEN 
-C-3'  AND  F3  «  2  THEN 
"C-3'  AND  F3  «  3  THEN 
"C-7"  AND  F3  «  l  THEN 
*C-7*  AND  F3  •  2  THEN 
'C-7'  AND  F3  ■  3  THEN 
•C-9'  AND  F3  -  1  THEN 
-C-9'  AND  F3  «  2  THEN 
'C-9'  AND  F3  ■  3  THEN 
"C- 130*  AND  F3  ■  1  THEN 
-C-130-  AND  F3  •  2  THEN 
"C- 130"  AND  F3  »  3  THEN 
•C-131*  AND  F3  *  l  THEN 
'C- 1 31 '  AND  F3  ■  2  THEN 
“C-131'  AND  F3  »  3  THEN 
•C-133'  AND  F3  «  1  THEN 
"  C -  1 33 "  AND  F3  »  2  THEN 
•C-133"  AND  F3  *  3  THEN 

•  C  -  1 4 1  AND  F3  =  1  THEN 

"C-141"  AND  F3  »  2  THEN 

"C- 141 '  AND  F3  »  3  THEN 

KC-133'  AND  F3  »  1 
»  3.  16 

KC-133-  AND  F3  »  2 

*  3.91 

KC-133"  AND  F3  »  3 
»  4.68 

"T-33"  AND  F3  *  1  THEN 
T-33-  AND  F3  «  2  THEN 
T-33"  AND  F3  •  3  THEN 
'  T -  37 "  AND  F3  «  1  THEN 
‘  T - 37 “  AND  F3  »  2  THEN 
■T-37'  AND  F3  3  3  THEN 


2960 

IF  AC  •  "T-38" 
UT  •  .33 

AND  F3  • 

1 

THEN 

2970 

IF  AC  3  " T - 38 " 
UT  -  0 

AND  F3  • 

2 

THEN 

2980 

IF  AC  »  -T-38- 
UT  ■  0 

AND  F3  * 

3 

THEN 

2990 

IF  AC  »  "  T  -  39  " 
UT  •  .33 

AND  F3  « 

1 

THEN 

3000 

IF  AC  «  " T - 39 - 
UT  ■  0 

AND  F3  - 

2 

THEN 

3010 

IF  AC  •  ' T - 39 - 
UT  •  1 . t 

AND  F3  > 

3 

THEN 

3020 

IF  AC  »  "T-43" 
UT  •  0 

AND  F3  • 

1 

THEN 

3030 

IF  AC  •  'T-43" 
UT  »  0 

AND  F3  ■ 

2 

THEN 

3040 

IF  AC  •  -T-43- 
UT  ■  3.83 

AND  F3  • 

3 

THEN 

3030 

IF  AC  ■  "A-7- 
UT  •  0 

AND  F3  ■ 

1  THEN 

3060 

IF  AC  «  'A-7- 
UT  »  .3 

AND  F3  - 

2  THEN 

3070 

IF  AC  «  -A-7* 
UT  »  4.41 

AND  F3  » 

3  THEN 

3080 

IF  AC  «  "A- 10" 
UT  •  .23 

AND  F3  • 

1 

THEN 

3090 

IF  AC  »  "A- 10" 
UT  3  o 

AND  F3  ■ 

2 

THEN 

3  1  00 

IF  AC  •  " A- 1 0 “ 
JT  •  4.41 

AND  F3  « 

3 

THEN 

3110 

IF  AC  »  ' A - 37 ' 
UT  «  .23 

AND  F3  « 

1 

THEN 

3120 

IF  AC  »  "A - 37 " 
UT  «  0 

AND  F3  * 

-5 

THEN 

3130 

IF  AC  «  " A-37" 
UT  «  0 

AND  F3  » 

3 

THEN 

3140 

IF  AC  «  -B-32" 
UT  »  3.11 

AND  F3  = 

1 

THEN 

3130 

IF  AC  »  "B-52” 
UT  »  3.61 

AND  F3  = 

-> 

THEN 

3160 

IF  AC  *  'B-32' 
UT  »  3.06 

AND  F3  * 

3 

THEN 

5170 

IF  AC  *  -FB-1 11"  AND  F3 
THEN  UT  *  0 

S 

1 

3130 

IF  AC  •  'FB- 1 11 "  AND  F3 
THEN  UT  3  o 

M 

~i 

3190 

IF  AC  «  "FB- 1 1 1  -  AND  F3 

X 

3 

THEN  UT  *  3.06 

3200  IF  AC  «  'H-r  AND  F3  «  1  THEN 
UT  «  .64 

3210  IF  AC  »  -H-l-  AND  F3  »  2  THEN 
UT  «  0 

3220  IF  AC  »  'H-l"  AND  F3  »  3  THEN 
UT  »  0 

3230  IF  AC  «  "H-3"  AND  F3  *  1  THEN 
UT  ■  .64 

3240  IF  AC  »  'H-3-  AND  F3  »  2  THEN 
UT  ■  0 

3230  IF  AC  3  -h-3"  AND  F3  «  3  THEN 
UT  »  0 
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3260 

IF  AS  « 
UT  •  .64 

"H-53"  AND 

F3  • 

1 

THEN 

3270 

IF  AS  • 
UT  •  0 

“H-33"  AND 

F3  « 

2 

THEN 

3280 

IF  AS  • 
UT  «  0 

"H-33*  AND 

F3  - 

3 

THEN 

3290 

LET  A 1 

■  AI  •  TF  • 

UT 

3300 

IF  F3  • 

1  THEN  EM 

•  24124 

3310 

IF  F3  • 

2  THEN  EM 

•  294 

3320 

IF  F3  • 

3  THEN  EM 

•  1688 

3330 

LET  El 

ft 

•  EM  *  Al  # 

NA  / 

100 

3340 

IF  F3  • 

1  THEN  EM 

>  936 

3330 

IF  F3  « 

2  THEN  EM 

■  129 

3360 

IF  F3  « 

3  THEN  EM 

•  14 

3370 

LET  E2 

n 

•  EM  ♦  AI  « 

NA  / 

too 

3380 

IF  F3  • 

1  THEN  EM 

•  623 

3390 

IF  F3  * 

2  THEN  EM 

•  1333 

3400 

IF  F3  » 

3  THEN  EM 

•  332 

3410 

LET  E3 

ft 

•  EM  •  Al  • 

NA  / 

100 

3420 

IF  F3  « 

1  THEN  EM 

•  3.9 

3430 

IF  F3  • 

2  THEN  EM 

-  8.8 

3440 

IF  F3  « 

3  THEN  EM 

•  79.  1 

3430 

LET  E4 

ft 

•  EM  *  Al  » 

NA  / 

100 

3460 

IF  F3  • 

1  THEN  EM 

•  40 

3470 

IF  F3  • 

2  THEN  EM 

•  97 

3480 

IF  F3  » 

3  THEN  EM 

•  43 

3490 

LET  E3 

n 

•  EM  t  Al  * 

NA  / 

100 

3300 

GOSUB  7700 

3510 

PRINT  s 

PRINT  i  INPUT  "DO 

Y 

QU  HAVE  ANYMORE  ACE'  THAT  Y 
OU  WOULD  LIKE  TO  CALCUL 
ATE  THE  POLLUTANT  EMISSION 


S  FOR,  < Y'  OR  <N>  "5"  ;WS 


3320 

IF 

ws 

»  "N" 

THEN  COTO  7490 

3330 

IF 

ft 

US 

=  "NO" 

THEN 

COTO  749 

3340 

1/ 

IF 

ws 

»  "  :N> 

*  THEN 

COTO  74 

90 

3330 

HOME  : 

PRINT 

' INPUT 

NECESSA 

RY 

ACE 

'  INFORMATION 

FOR  A 

COMPRESSOR  THAT  BEST  DESCRI 
BES  YOUR  ' ACE  . " 

3360  PRINT  :  PRINT  "RESPONSES.'  0 
•NO  EMISSIONS  CALCULATED" 

3370  PRINT  TAB<  14) "FOR  A  COMPR 
ESSOR" 

3380  PRINT  !  PRINT  TA8<  12>"1«M 
OCAS  WITH  HP«30 ” 

3390  PRINT  s  PRINT  TAB<  12>"2»M 
OCAS  WITH  HP-10,3" 

3600  PRINT  J  PRINT  TAB  I  12r'3-D 
IESEL/JP-4" 

3610  PRINT  »  PRINT  TAB!  12)”4-D 
IESEL  WITH  TURBINE  ENGINE" 


3620  PRINT  :  INPUT  "ENTER  YOUR  R 
ESPONSE. " iF4 

3630  IF  F4  •  0  THEN  GOTO  3130 

3640  TF  •  OlAI  *  OiUT  •  OsAt  •  Os 
EM  »  0 i El  •  0 i E2  •  0 i E3  •  Os 
E4  -  OiES  •  0 

3630  LET  TF  •  IsAl  «  l 

3660  IF  A*  *  "F-4"  AND  F4  •  1  THEN 
UT  •  .38 

3670  IF  A*  «  "F-4"  AND  F4  •  2  THEN 
UT  •  .33 

3680  IF  AS  «  "F-4"  AND  F4  •  3  THEN 
UT  «  .38 

3690  IF  AS  •  "F-4"  AND  F4  •  4  THEN 
UT  •  .09 

3700  IF  A*  «  'F-13*  AND  F4  •  1  THEN 
UT  •  .38 

3710  IF  A*  •  "F-13-  AND  F4  «  2  THEN 
UT  •  .33 

3720  IF  AS  »  -F-13"  AND  F4  •  3  THEN 
UT  »  ,38 

3730  IF  AS  «  "F-13"  AND  F4  -  4  THEN 
UT  »  0 

3740  IF  AS  •  "F-16"  AND  F4  -  1  THEN 
UT  »  .38 

3730  IF  AS  =  "F-16"  AND  F4  •  2  THEN 
UT  •  .33 

3760  IF  AS  •  "F-16"  AND  E4  »  3  THEN 
UT  •  .38 

3770  IF  AS  •  "F-16"  AND  F4  •  4  THEN 
UT  •  0 


3780 

IF  AS  »  'F- 1 03” 
UT  *  .38 

AND 

F4 

X 

1 

THEN 

3790 

IF  AS  »  “F- 103" 
UT  »  .33 

AND 

F4 

x 

2 

THEN 

3300 

IF  AS  -  "F-105" 
UT  •  .58 

AND 

F4 

3 

THEN 

3310 

IF  AS  =  ' F ■ 1 03 " 
UT  *  .09 

AND 

F  4 

4 

THEN 

3S20 

IF  AS  *  "F- 106" 
UT  *  0 

AND 

F4 

= 

1 

THEN 

3830 

IF  AS  »  "F-106” 
UT  =  .33 

AND 

F  4 

= 

2 

THEN 

3340 

IF  AS  *  “F-106" 
UT  *  0 

AND 

F4 

3 

THEN 

3350 

IF  AS  •  "F-106" 
UT  »  0 

AND 

F  4 

X 

4 

THEN 

3360 

IF  AS  «  "F- 11 I " 
UT  -  .33 

AND 

F4 

X 

1 

THEN 

3370 

IT  AS  •  ”F-  l 1 1  - 
UT  »  .33 

AND 

F  4 

X 

2 

THEN 

3380 

IF  AS  »  " F -  1 1 1 " 
UT  «  .58 

AND 

F4 

X 

3 

THEN 

3390 

IF  AS  •  " F -  1 1 1 " 
UT  •  0 

AND 

F  4 

X 

4 

THEN 

3900 

IF  AS  •  "0-2"  AND  F4 
UT  «  0 

X 

1 

THEN 

3910 

IF  AS  •  "0-2"  AND  F4 
UT  •  .3 

X 

2 

THEN 

3920 

IF  AS  •  0-2"  AND  F4 

X 

3 

THEN 

23 


3930 

UT  »  0 

IF  A*  -  “0-2-  AND  F4  « 

4 

THEN 

3940 

UT  «  0 

IF  At  ■  "OV-10-  AND  F4 

■ 

1  THEN 

3930 

UT  «  0 

IF  A*  -  "OV-10"  AND  F4 

m 

2  THEN 

3960 

UT  -  .3 

IF  At  -  -OV-10"  AND  F4 

m 

3  THEN 

3970 

UT  ■  0 

IF  At  «  "OV-10-  AND  F4 

9 

4  THEN 

3980 

UT  »  0 

IF  At  -  -C-3-  AND  F4  - 

1 

THEN 

3990 

UT  »  .73 

IF  At  «  “C-3-  AND  F4  « 

2 

THEN 

4000 

UT  »  .92 

IF  At  »  -C-3"  AND  F4  « 

3 

THEN 

4010 

UT  ■  .73 

IF  At  »  ‘C-3"  AND  F4  ■ 

4 

THEN 

4020 

UT  ■  .46 

IF  At  «  “C-7"  AND  F4  - 

1 

THEN 

4030 

UT  «  .73 

IF  At  *  “C-7"  AND  F4  - 

2 

THEM 

4040 

UT  »  .92 

IF  At  •  "C-7-  AND  F4  » 

3 

THEN 

4030 

UT  -  .73 

IF  At  -  ‘C-7-  AND  F4  » 

4 

THEN 

4060 

UT  -  0 

IF  At  «  -C-9“  AND  F4  « 

1 

THEN 

4070 

UT  -  .73 

IF  At  -  -C-9-  AND  F4  « 

2 

THEN 

4080 

UT  «  0 

IF  At  «  "C-9-  AND  F4  « 

3 

THEN 

4090 

UT  »  .73 

IF  At  »  -C-9"  AND  F4  « 

4 

THEN 

4100 

UT  *  0 

IF  At  »  -C-130-  AND  F4 

S 

»  THEN 

41  10 

UT  *  .73 

IF  At  =  "C-130"  AND  F4 

Z 

2  THEN 

4120 

UT  ■  .92 

IF  At  =  "C-130"  AND  F4 

Z 

3  THEN 

4130 

UT  *  .73 

IF  At  *  "C-130"  AND  F4 

a 

4  THEN 

4140 

UT  *  .46 

IF  At  -  " C - 1 3 1  -  AND  F 4 

a 

1  THEN 

4130 

UT  »  .75 

IF  At  -  " C -  1 3 1 “  AND  F4 

a 

2  THEN 

4160 

UT  «  .92 

IF  At  «  -C-131"  AND  F4 

a 

3  THEN 

4170 

UT  «  .73 

IF  At  «  "C-131"  AND  F4 

a 

4  THEN 

4180 

UT  «  0 

IF  At  «  ” C -  1 33 -  AND  F4 

a 

1  THEN 

4190 

UT  -  .73 

IF  At  »  " C -  1 33 -  AND  F4 

a 

2  THEN 

4200 

UT  «  .92 

IF  At  ■  - C - l 33 -  AND  F4 

a 

3  THEN 

4210 

UT  »  .73 

IF  At  ■  " C -  1 33 "  AND  F4 

a 

4  THEN 

4220 

UT  •  .46 

IF  At  «  “C-141'  AND  F4 

a 

I  THEN 

UT  »  .73 

4230  IF  A*  ■  -C-141-  AND  F4  *  2  THEN 
UT  •  .92 

4240  IF  At  »  "C-141  "  AND  F4  *  3  THEN 
UT  •  .73 

4230  IF  A*  «  -C-141"  AND  F4  •  4  THEN 
UT  •  .46 

4260  IF  A*  ■  “KC-133"  AND  F4  »  1 
THEN  UT  ■  .49 

4270  IF  A*  -  -KC-133"  AND  F4  -  2 
THEN  UT  -  .32 

4280  IF  A*  -  "KC-133-  AND  F4  ■  3 
THEN  UT  -  .49 

4290  IF  A*  ■  "KC-133-  AND  F4  •  4 
THEN  UT  »  .31 

4300  IF  At  -  -T-33-  AND  F4  «  1  THEN 
UT  «  .38 

4310  IF  A*  ■  -T-33"  AND  F4  •  2  THEN 
UT  «  .33 

4320  IF  A*  ■  -T-33’  AND  F4  ■  3  THEN 
UT  «  .38 

4330  IF  A*  *  “T-33"  AND  F4  »  4  THEN 
UT  •  0 

4340  IF  A*  «  ‘ T - 37 "  AND  F4  »  1  THEN 
UT  «  0 

4330  IF  At  •  ' T - 37 "  AND  F4  »  2  THEN 
UT  ■  0 

4360  IF  A*  ■  * T - 37 *  AND  F4  «  3  THEN 
UT  *  0 

4370  IF  A*  »  ’ T - 37 "  AND  F4  ■  4  THEN 
UT  »  0 

4380  IF  A*  -  * T - 38 '  AND  F4  «  1  THEN 
UT  •  0 

4390  IF  A*  •  " T - 38 "  AND  F4  «  2  THEN 
UT  «  .33 

4400  IF  A*  »  - T - 38 "  AND  F4  »  3  THEN 

UT  *  0 

4410  IF  A*  »  " T - 38 ”  AND  F4  •  4  THEN 
UT  »  . 09 

4420  IF  A*  »  “ T - 39 "  AND  F4  «  1  THEN 
U^  *  .38 

4430  IF  A*  «  " T - 39 "  AND  F4  *  2  THEN 

U~  *  .33 

4440  IF  A*  =  “ T -  39 "  AND  F4  *  3  THEN 
UT  »  .38 

4430  IF  A*  •  " T - 39 '  AND  F4  ■  4  THEN 
UT  ■  .09 

4460  IF  A*  ■  “T-43"  AND  F4  «  1  THEN 

UT  •  0 

4470  IF  A*  «  "T-43-  AND  F4  »  2  THEN 

UT  •  0 

4430  IF  A*  *  "T-43-  AND  F4  »  3  THEN 
UT  *  0 

4490  IF  A*  ■  "T-43-  AND  F4  ■  4  THEN 
UT  »  0 

4300  IF  A*  «  "A -7"  AND  F4  ■  1  THEN 
UT  »  ,  1 

4310  IF  A*  *  -A -7-  AND  F4  «  2  THEN 
UT  *  .16 

4520  IF  A*  «  -A-7-  AND  F4  »  3  THEN 


UT  »  .  1 

4830 

IF  F4  » 

1  THEN  EM  *  4685 

4330 

17  A«  »  “A-7" 

AND 

F4 

S 

4  THEN 

4840 

IF  F4  » 

2  THEN  EM  »  2466 

UT  «  .67 

4850 

IF  F4  « 

3  THEN  EM  «  122 

4340 

IF  AS  *  " A- 1 0 " 

AND 

F4 

a 

1  THEN 

4860 

IF  F4  * 

4  THEN  EM  «  806 

UT  *  .  1 

4870 

LET  El  « 

EM  »  AI  •  NA  /  100 

4330 

IF  AS  »  "A- 10" 

AND 

F  4 

a 

2  THEN 

0 

UT  ■  .16 

4880 

IF  F4  • 

1  THEN  EM  *  162 

4360 

IF  AS  «  “A- 10* 

AND 

F4 

3  THEN 

4890 

IF  F4  * 

2  THEN  EM  *  133 

UT  »  .  1 

4900 

IF  F4  • 

3  THEN  EM  «  63 

4370 

IF  AS  »  'A- 10” 

AND 

F4 

4  THEN 

4910 

IF  F4  * 

4  THEN  EM  *  6.7 

UT  *  0 

4920 

LET  E2  ■ 

EM  *  AI  •  NA  /  100 

4380 

IF  AS  -  "A- 37“ 

AND 

F4 

1  THEN 

0 

UT  »  .  1 

4930 

IF  F4  « 

1  THEN  EM  *  122 

4390 

IF  AS  *  “  A  -  37  “ 

AND 

F4 

2  THEN 

4940 

IF  F4  « 

2  THEN  EM  -  49 

UT  -  .16 

4930 

IF  F 4  » 

3  THEN  EM  *  128 

4600 

IF  AS  -  “ A - 37 “ 

AND 

F4 

3  THEN 

4960 

IF  F4  • 

4  THEN  EM  *  139 

UT  =  .  1 

4970 

LET  E3  ■ 

EM  •  AI  •  NA  /  100 

4610 

IF  AS  =  “ A-37“ 

AND 

F4 

4  THEM 

0 

UT  »  0 

4980 

IF  F4  * 

1  THEN  EM  «  1.3 

4620 

IF  AS  =  "B-32" 

AND 

F4 

1  THEN 

4990 

IF  F 4  * 

2  THEN  EM  *  .79 

UT  «  1.03 

5000 

IF  F 4  * 

3  THEN  EM  =  5.6 

4630 

IF  AS  *  "B-32" 

AND 

F  4 

2  THEN 

5010 

IF  F 4  * 

4  THEN  EM  «  37. S 

UT  =■  .37 

5020 

LET  E4  ■ 

EM  •  AI  •  NA  /  100 

4640 

IF  AS  *  "B-32" 

AND 

F4 

a 

3  THEN 

0 

UT  »  1.03 

3030 

IF  F4  » 

1  THEN  EM  »  7.7 

4630 

IF  AS  -  "B-32" 

AND 

F4 

a 

4  THEN 

3040 

IF  F4  - 

2  THEN  EM  *  4.4 

UT  *  2.2 

3030 

IF  F4  * 

3  THEN  EM  •  24 

4660 

IF  AS  *  “FB- 111"  AND 

F4 

*  1 

3060 

IF  F4  - 

4  THEN  EM  *  21 

THEN  UT  »  1.03 

3070 

LET  E3  ■ 

EM  ♦  AI  *  NA  /  100 

4670 

IF  AS  «  “ FB -111"  AND 

F4 

«  2 

0 

THEN  UT  »  .37 

5080 

COSUB  7700 

4680 

IF  AS  =  "FB-llt"  AND 

F  4 

■  3 

5090 

PRINT  s 

PRINT  s  INPUT  "DO  Y 

THEN  UT  =  1.03 

OU  HAVE  ANYMORE  ACE'  THAT  Y 

4690 

IF  AS  =  "FB- 111"  AND 

F4 

=  4 

OU  • WOULD  LIKE  TO  CALCUL 

THEN  UT  =  0 

ATE  THE  POLLUTANT  EMISSION 

4700 

IF  AS  =  "H-l" 

AND 

F4 

= 

1  THEN 

S  FOR,  <Y>  OR  <N>  ; WS 

UT  =  .3 

5100 

IF  WS  = 

"N"  THEN  GOTO  7490 

4710 

IF  AS  =  "H-l" 

AND 

F4 

3 

2  THEM 

UT  *  .3 

5110 

IF  WS  = 

"NO"  THEN  COTO  749 

4720 

IF  AS  =  ” H -  1 " 

AND 

r4 

3  THEM 

0 

UT  *  .  3 

5120 

IF  WS  = 

" <  N  > "  THEN  COTO  74 

4730 

IF  AS  =  "H-l" 

AND 

F4 

= 

4  THEN 

90 

UT  *  0 

5130 

HOME  :  PRINT  "INPUT  NECESSA 

4740 

IF  AS  *  "  H  -  3  " 

AND 

F4 

= 

1  THEN 

RY  ' ACE 

INFORMATION  FOR  A  H 

UT  *  .3 

fDRAULIC 

TEST  STAND  THAT  BES 

4730 

IF  AS  =  "H-3" 

AND 

F4 

= 

2  THEN 

T  DESCRIBESYOUR  AGE ' . " 

UT  *  .5 

5140 

PRINT  : 

PRINT  "RESPONSES:  0 

4760 

IF  AS  »  "H-3" 

AND 

F4 

a 

3  THEN 

»NO  EMISSIONS  CALCULATED" 

UT  *  .3 

5130 

PRINT  TAB (  14) "FOR  A  HYDRA 

4770 

IF  AS  *  "H-3" 

AND 

F4 

a 

4  THEN 

ULIC  TEST 

STAND “ 

UT  »  0 

3160 

PRINT  : 

PRINT  TAB (  1 2 ) ” 1 *M 

4780 

IF  AS  »  "H-33" 

AND 

F  4 

a 

1  THEN 

OCAS" 

UT  *  .3 

5170 

PRINT  : 

INPUT  "ENTER  YOUR  R 

4790 

IF  AS  =  “H-33" 

AND 

F4 

a 

2  THEN 

ESPONSE. " 

;F3 

UT  »  .3 

3130 

IF  F5  = 

0  THEN  COTO  5610 

4800 

IF  AS  =»  "H-33" 

AND 

F4 

a 

3  THEN 

3190 

TF  *  0: AI 

»  0 :UT  *  0 : AI  «  0: 

UT  »  .3 

EM  *  0 : El 

»  0:E2  *  0 : E3  *  0: 

4810 

IF  AS  *  "H-33" 

AND 

F4 

a 

4  THEN 

E4  »  0:E3 

*  0 

UT  *  0 

5200 

LET  TF  * 

1 I AI  »  1 

4820 

LET  A1  *  AI  « 

TF  ♦ 

UT 

3210 

IF  AS  » 

-F-4"  THEN  UT  «  .3 

25 


5220 

IF 

AS 

* 

"F- 15"  THEN  UT  -  .3 

5580 

IF 

ws 

9 

”N”  THEN  COTO  7490 

5230 

IF 

AS 

■ 

”F-16”  THEN  UT  »  0 

5590 

IF 

US 

9 

”NO“  THEN  COTO  749 

5240 

IF 

AS 

m 

”F- 105'  THEN  UT  «  0 

0 

5600 

IF 

ws 

9 

” <N> ”  THEN  COTO  74 

5250 

IF 

AS 

m 

"F- 106”  THEN  UT  ■  0 

90 

5610 

HOME  i 

PRINT  ‘INPUT  NECESSA 

5260 

IF 

AS 

9 

"F-lll-  THEN  UT  «  0 

RY 

ACE' 

INFORMATION  FOR  A  B 

OMBLIFT 

THAT  BEST  DESCRIBES 

5270 

IF 

AS 

9 

”0-2’  THEN  UT  ■  0 

YOUR  'ACE 

'  ,  * 

5280 

IF 

AS 

9 

■OV-IO”  THEN  UT  »  0 

5620 

PRINT 

: 

PRINT  "RESPONSES:  0 

•NO 

EMISSIONS  CALCULATED” 

5290 

IF 

AS 

m 

"C-S”  THEN  UT  *  1.1 

5630 

PRINT 

TAB!  14) ‘FOR  A  BOMBL 

a 

1FT' 

5300. 

IF 

AS 

9 

-C-7”  THEN  UT  -  0 

5640 

PRINT 

s 

PRINT  TAB(  12)“1«M 

5310 

IF 

AS 

* 

”C-9”  THEN  UT  «  0 

OCAS” 

5320 

IF 

AS 

9 

"C- 130”  THEN  UT  »  1 

5650 

PRINT 

: 

INPUT  -ENTER  YOUR  R 

.  IS 

ESPONSE. ” 

1 F6 

5330 

IF 

AS 

9 

”C -  131 "  THEN  UT  =■  0 

5660 

IF 

F6 

9 

0  THEN  COTO  6090 

5670 

TF  < 

■  0  i  A I 

•  0  sUT  »  0 :  EM  =  0: 

5340 

IF 

AS 

M 

” C - l 35 ”  THEN  UT  »  0 

A 1  ’ 

■  Ot 

El 

•  0 :E2  •  0tE3  •  0: 

E4  i 

*  0! 

E5 

«  0 

5350 

IF 

AS 

* 

" C -  1 4 1 "  THEN  UT  =  1 

5680 

LET  TF 

'  = 

1 sAI  »  1 

.  IS 

5690 

IF 

AS 

a 

” F -  4 ”  THEN  UT  *  .52 

5360 

IF 

AS 

9 

■KC-135”  THEN  UT  - 

.  12 

5700 

IF 

AS 

"F-15”  THEN  UT  *=  0 

5370 

IF 

AS 

9 

"  T  -  33 '  THEN  UT  *  0 

5710 

IF 

AS 

a 

”F- 16”  THEN  UT  *  0 

5380 

IF 

AS 

* 

”T-37”  THEN  UT  «  0 

5720 

IF 

AS 

■F-105”  THEN  UT  »  0 

5390 

IF 

AS 

9 

” T - 38 ”  THEN  UT  *  0 

5400 

IF 

AS 

9 

” T - 39 ”  THEN  UT  -  0 

5730 

IF 

AS 

” F -  1 06 ”  THEN  UT  *  0 

5410 

IF 

AS 

9 

” T - 43 ”  THEN  UT  =  0 

5420 

IF 

AS 

■ 

"A -7”  THEN  UT  «  .14 

5740 

IF 

AS 

"F-lll”  THEN  UT  »  . 

52 

5430 

IF 

AS 

9 

”A- 10”  THEN  UT  *  0 

3750 

IF 

AS 

”0-2”  THEN  UT  •  0 

5440 

IF 

AS 

9 

” A - 37 ”  THEN  UT  »  0 

5760 

IF 

AS 

-OV-IO”  THEN  UT  •  0 

5450 

IF 

AS 

9 

” B - 52 ”  THEN  UT  «  .0 

9 

5770 

IF 

AS 

"  C  -  5  "  THEN  UT  «  0 

5460 

IF 

AS 

9 

■FB- 111”  THEN  UT  « 

5730 

IF 

AS 

'C-7-  THEN  UT  -  0 

0 

5790 

IF 

AS 

s 

"  C  -  9 "  THEN  UT  *  0 

5470 

IF 

AS 

9 

" H -  1 ”  THEN  UT  *  0 

5800 

IF 

AS 

= 

‘ C - 1 30 ”  THEN  UT  ■  0 

5480 

IF 

AS 

9 

”H-3”  THEN  UT  =  .5 

5490 

IF 

AS 

9 

-H-53”  THEN  UT  »  .5 

5810 

IF 

AS 

s 

”C -  1 31 ”  THEN  UT  *  0 

5500 

LET  A 1 

9 

A I  »  TF  *  UT 

5820 

IF 

AS 

9 

"C-135”  THEN  UT  *  0 

5510 

LET  El 

9 

23141  »  At  •  NA  / 

1000 

5830 

IF 

AS 

9 

” C  *  1 4 1 ”  THEN  UT  *  0 

5520 

LET  E2 

9 

902  •  A1  •  NA  /  10 

00 

3840 

IF 

AS 

9 

•KC-135”  THEN  UT  « 

5530 

LET  E3 

9 

600  •  A1  •  NA  /  10 

0 

00 

5850 

IF 

AS 

•T-33”  THEN  UT  »  0 

5540 

LET  E4 

9 

3,4  ♦  A1  •  NA  /  10 

5860 

IF 

AS 

"T-37”  THEN  UT  •  0 

00 

5870 

IF 

AS 

”T-38”  THEN  UT  •  0 

5550 

LET  E5 

9 

38  *  A1  *  NA  /  100 

5880 

IF 

AS 

” T -  39 "  THEN  UT  •  0 

0 

5890 

IF 

AS 

’ T -  43 ”  THEN  UT  •  0 

5560 

COSUB 

77 

00 

3900 

IF 

AS 

” A - 7 ”  THEN  UT  ■  2.1 

5570 

PRINT 

l 

PRINT  i  INPUT  "DO  T 

1 

OU  HAVE 

ANYMORE  ACE'  THAT  Y 

5910 

IF 

AS 

“A- 10"  THEN  UT  •  0 

OU 

WOULD  LIKE  TO  CALCUL 

5920 

IF 

AS 

"A- 37”  THEN  UT  ■  2. 

ATE 

THE 

POLLUTANT  EMISSION 

1 1 

3  FOR, 

<Y>  OR  <N>  ?*jWS 

5930 

IF 

AS 

9 

"B-52”  THEN  UT  •  3. 

25 

5 

5940 

U. 

C 

=  ' FB -  1  1 1 "  THEN  UT  « 

6250 

IF 

Q 

AS 

e 

"C-5"  THEN  UT  =  3.1 

5950 

IF  A* 

■  " H -  1 "  THEN  UT  «  0 

6260 

a 

IF 

AS 

3 

"C-7"  THEN  UT  =  3.1 

5960 

IF  AS 

■  "H-3"  THEN  UT  ■  0 

8 

5970 

IF  AS 

■  "H-53"  THEN  UT  -  0 

6270 

IF 

AS 

3 

“C-9"  THEN  UT  =  3.  1 

5980 

LET  At 

■  AI  •  TF  «  UT 

8 

5990 

LET  El 

■•4685  »  Al  *  NA  /  1 

6280 

IF 

AS 

* 

"C-130*  THEN  UT  »  3 

000 

.  18 

6000 

LET  E2 

•  162  •  Al  •  NA  /  10 

6290 

IF 

AS 

* 

“C- 131 "  THEN  UT  »  3 

00 

.  IB 

6010 

LET  E3 

«  122  *  Al  »  NA  /  10 

6300 

:f 

AS 

3 

"C-135"  THEN  UT  ■  3 

00 

.  18 

6020 

LET  E4 

■  .79  «  Al  »  NA  /  10 

6310 

IF 

AS 

3 

"C-141"  THEN  UT  *  3 

00 

.  18 

6030 

LET  E5 

■  7 . S  *  A 1  *  NA  /  10 

6320 

IF 

AS 

Z 

"KC-135"  THEN  UT  * 

00 

4.66 

6040 

COSUB 

7700 

6330 

IF 

AS 

3 

“T-33"  THEN  UT  *  1 . 

6050 

PPINT 

!  PRINT  :  INPUT  “DO  Y 

25 

OU  HAVE 

ANYMORE  ACE-  THAT  Y 

6340 

IF 

AS 

3 

"  T  -  37 "  THEN  UT  »  0 

OU 

WOULD  LIKE  TO  CALCUL 

6350 

IF 

AS 

* 

“T-38"  THEN  UT  =  0 

ATE  THE 

POLLUTANT  EMISSION 

6360 

IF 

AS 

3 

“ T -  39 "  THEN  UT  -  1. 

S  FOR, 

<Y>  OR  <N>  '’"jWS 

25 

6060 

IF  WS 

■  "N"  THEN  COTO  7490 

6370 

IF 

AS 

3 

"T-43"  THEN  UT  =  0 

6380 

IF 

AS 

3 

"A -7"  THEN  UT  *  .23 

6070 

IF  WS 

«  "NO"  THEN  COTO  749 

0 

6390 

IF 

AS 

S 

"A- 10"  THEN  UT  ■  .2 

6080 

IF  WS 

■  " <N> "  THEN  COTO  74 

3 

90 

6400 

IF 

AS 

S 

"A- 37"  THEN  UT  -  .2 

6090 

HOME  1 

PRINT  "INPUT  NECESSA 

3 

RY  ACE 

’  INFORMATION  FOR  A 

6410 

IF 

AS 

3 

"B-52"  THEN  UT  *  3. 

LICHT 

CART  THAT  BEST  DESCRI 

36 

BES  YOUR  ACE'." 

6420 

IF 

AS 

3 

"FB* 111"  THEN  UT  * 

6100 

PRINT 

i  PRINT  "RESPONSES!  0 

3.36 

■NO  EMISSIONS  CALCULATED" 

6430 

IF 

AS 

■ 

"H-l"  THEN  UT  «  .83 

6110 

PRINT 

TAB (  14) "FOR  A  LICHT 

CART" 

6440 

IF 

AS 

3 

"H-3"  THEN  UT  =  ,83 

6120 

PRINT 

i  PRINT  TAB!  1 2 ) “ 1 *M 

OCAS" 

6450 

IF 

AS 

Z 

'H-53"  THEN  UT  =  .  3 

6130 

PRINT 

!  INPUT  "ENTER  YOUR  R 

3 

ESPONSE . " i F7 

5460 

LET 

Al 

3 

AI  »  TF  »  UT 

6140 

IF  F7 

■  0  THEN  COTO  6570 

5470 

LET 

El 

= 

2466  •  Al  »  NA  /  1 

6150 

TF  =  0 : 

AI  ■  0 : UT  ■  OsEM  =  0: 

000 

A 1  »  0: 

El  =  0 : E2  »  0 : E3  »  0: 

6480 

LET 

E2 

= 

155  •  Al  *  NA  /  10 

E4  »  0: 

E5  »  0 

00 

6160 

LET  TF 

■  1  :  A I  »  1 

6490 

LET 

E3 

Z 

49  •  Al  »  NA  /  100 

6170 

IF  A* 

«  " F - 4 "  THEN  UT  =  1.2 

0 

5 

5500 

LET 

E4 

3 

,74  »  Al  •  NA  /  10 

6180 

IF  A* 

■  “F-15"  THEN  UT  »  l. 

00 

25 

6510 

LET 

E5 

S 

4.4  *  At  •  NA  /  10 

6190 

IF  A* 

■  "F- 16"  THEN  UT  ■  I  . 

00 

25 

6520 

COSUB 

7T00 

6200 

IF  AS 

«  "F-105"  THEN  UT  •  1 

5530 

PPINT 

• 

PRINT  :  INPUT  "DO  Y 

,25 

OU  HAVE 

ANYMORE  ACE'  THAT  Y 

6210 

IF  AS 

■  "F-106"  THEN  UT  ■  1 

OU 

WOULD  LIKE  TO  CALCUL 

.25 

ATE 

THE 

POLLUTANT  EMISSION 

6220 

IF  AS 

-  " F -  1  1  1“  THEN  UT  *  1 

S  FOR, 

<y>  or  -:n>  jws 

.25 

6540 

IF 

w* 

m 

"N"  THEN  COTO  7490 

6230 

IF  AS 

■  "0-2"  THEN  UT  «  .5 

6240 

IF  AS 

*  "OV-IO"  THEN  UT  *  . 

6550 

IF 

w« 

m 

"NO"  THEN  COTO  74 9 

27 


0 

6S60  IF  US  •  "<N>-  THEN  COTO  74 
90 

6S70  HOME  J  PRINT  * INPUT  NECESSA 
RY  'ACE'  INFORMATION  FOR  A  P 
RESSURE  TESTER  THAT  BEST  DES 
CRIBES  YOUR'ACE'.* 

6SS0  PRINT  <  PRINT  'RESPONSES:  0 
■NO  EMISSIONS  CALCULATED' 
6S90  PRINT  TAB(  14) 'FOR  A  PRESS 
URE  TESTER ' 

6600  PRINT  :  PRINT  TAB!  12)'1-M 
OCAS' 

6610  PRINT  :  INPUT  'ENTER  YOUR  R 
ESP0N8E > ' l F8 

6620  IF  F8  ■  0  THEN  COTO  7030 
6630  TF  ■  0: AI  «  0:A1  ■  0:UT  ■  0: 
EM  ■  0:E1  «  0:E2  -  0:E3  ■  0: 
E4  ■  0:E3  ■  0 


6640 

LET  TF 

m 

1 : AI  *  1 

6630 

IF 

AS 

"F-4-  THEN  UT  ■  .04 

6660 

IF 

4 

A* 

"F-13"  THEN  UT  ■  \ 0 

6670 

IF 

4 

A* 

'F- 16*  THEN  UT  ■  .0 

6680 

IF 

A* 

'F-103'  THEN  UT  »  0 

6690 

IF 

04 

A* 

-F-106-  THEN  UT  -  , 

6700 

IF 

04 

A* 

-F-lll-  THEN  UT  »  . 

6710 

IF 

AS 

"0-2"  THEN  UT  ■  0 

6720 

IF 

AS 

'OV-IQ*  THEN  UT  «  0 

6730 

IF 

AS 

'C-3*  THEN  UT  »  0 

6740 

IF 

AS 

'C-7-  THEN  UT  «  0 

6730 

IF 

AS 

"C-9"  THEN  UT  »  0 

6760 

IF 

AS 

“C-130-  THEN  UT  ■  0 

6770 

IF 

AS 

"0-131"  THEN  UT  =  0 

6730 

IF 

AS 

" C -  1 33 "  THEN  UT  *  0 

6790 

IF 

AS 

"C-141"  THEN  UT  ■  0 

6800 

IF 

A 

AS 

"KC -  133"  THEN  UT  ■ 

6810 

V 

IF 

A 

AS 

' T - 33 '  THEN  UT  «  . 0 

6820 

IF 

AS 

'T-37*  THEN  UT  ■  0 

6830 

IF 

AS 

" T - 38 '  THEN  UT  «  0 

6840 

IF 

AS 

" T - 39 "  THEN  UT  «  0 

6830 

IF 

AS 

'T-43'  THEN  UT  ■  0 

6860 

IF 

AS 

"A-7-  THEN  UT  ■  .13 

6870 

IF 

3 

AS 

'A- 10"  THEN  UT  «  . 1 

6880 

IF 

AS 

"A- 37"  THEN  UT  ■  0  • 

6890 

IF 

AS 

"B-32"  THEN  UT  »  0 

6900  IF  A*  ■  *FB- 111"  THEN  UT  ■ 

0 

6910  IF  A*  «  -H-l-  THEN  UT  «  0 

6920  IF  A*  ■  'H-3-  THEN  UT  ■  0 

6930  IF  AS  ■  “H-33'  THEN  UT  ■  0 
6940  LET  At  ■  AI  •  TF  *  UT 

6930  LET  El  >  21330  •  AI  •  NA  / 

1900 

6960  LET  E2  -  846  *  AI  •  NA  /  10 
00 

6970  LET  E3  -  338  #  AI  *  NA  /  10 

00 

6980  LET  E4  •  2.4  t  AI  •  NA  /  10 
00 

6990  LET  E3  ■  33  •  AI  *  NA  /  100 
0 

7000  COSUB  7700 

7010  PRINT  :  PRINT  :  INPUT  'DO  Y 
OU  HAVE  ANYMORE  ACE'  THAT  Y 
OU  WOULD  LIKE  TO  CALCUL 

ATE  THE  POLLUTANT  EMISSION 
S  FOR,  <Y>  OR  <N>  ?*iW* 


7020 

IF 

WS  «  "N" 

THEN 

COTO  7490 

7030 

IF 

A 

US  ■  'NO' 

THEN 

COTO  749 

7040 

0 

IF 

WS  -  " <N> 

'  THEN 

COTO  74 

90 

7030 

HOME  :  PRINT 

'INPUT  NECESSA 

RY  ACE'  INFORMATION  FOR  A  J 
ACKINC  MANIFOLD  THAT  BEST  DE 
ESCRIBEB  YOUR  AGE'." 

7060  PRINT  :  PRINT  ‘RESPONSES:  0 
•NO  EMISSIONS  CALCULATED - 
7070  PRINT  TAB(  14) "FOR  A  JACKI 
NC  MANIFOLD" 

7080  PRINT  :  PRINT  TAB!  12>"1=M 
OCAS' 

7090  PRINT  :  INPUT  "ENTER  YOUR  R 
ESP0N5E. " iF9 

7100  IF  F9  ■  0  THEN  COTO  7490 
~110  TF  »  0 : AI  ■  0 : UT  ■  0:A1  »  0: 
EM  »  OsEl  ■  0:E2  *  0:E3  •  0: 
E4  ■  0 :  E3  »  0 


-120 

LET  TF 

* 

1 : AI  -  1 

7130 

IF 

AS 

-r-4"  THEN  UT  ■ 

0 

7140 

IF 

AS 

"F-13'  THEN  UT 

*  0 

7130 

IF 

AS 

“F-16-  THEN  UT 

■  0 

7160 

IF 

AS 

"F-103'  THEN  UT 

■  0 

7170 

IF 

AS 

'F-106"  THEN  UT 

»  0 

7130 

IF 

AS 

•F-lll"  THEN  UT 

»  0 

7190 

IF 

AS 

■0-2"  THEN  UT  » 

0 

7200 

IF 

AS 

"0V-10-  THEN  UT 

«  0 

■’210 

IF 

AS 

"C-3"  THEN  UT  « 

.38 

7220 

IF 

AS 

"C-7-  THEN  UT  ■ 

0 

7230 

IF 

A* 

«  "C-9-  THEN  UT  •  0 

7380 

PRINT  i 

PRINT 

j  PRINT  TAB ( 

7240 

IF 

A* 

«  "C - 130*  THEN  UT  *  . 

15 > ‘CO  » 

*  »S1 

38 

7390 

PRINT  s 

PRINT 

TAB!  13) *HC 

7230 

IF 

A# 

«  "C- 131  *  THEN  UT  ■  0 

.  -,S2 

7600 

PRINT  : 

PRINT 

TAB!  13) "NOX 

7260 

IF 

A* 

■  "C-133"  THEN  UT  -  . 

.  -,S3 

38 

7610 

PRINT  i 

PRINT 

TAB(  13) *SOX 

7270 

IF 

A* 

«  *C *  141 “  THEN  UT  -  . 

■  *(S4 

38 

7620 

PRINT  t 

PRINT 

TA8<  13) ‘PM 

7280 

IF 

A* 

-  "KC-133"  THEN  UT  - 

«  *jS3 

.  19 

7630 

PR#  0 

7290 

IF 

A* 

»  "T-33"  THEN  UT  •  0 

7640 

PRINT  s 

PRINT 

j  PRINT  :  INPI 

7300 

IF 

AS 

«  "T-37"  THEN  UT  «  0 

"IF  YOU 

WOULD 

LIKE  TO  RUN  TH 

7310 

IF 

AS 

*  *T-38"  THEN  UT  -  0 

IS  PROGRAM  ACAIN  ENTER  <Y> 

7320 

.  IF 

AS 

-  *T-39*  THEN  UT  -  0 

,  OTHERWISE  ENTER  <N>.*:R1S 

7330 

IF 

AS 

«  " T - 43  *  THEN  UT  ■  0 

7630 

IF  R1S 

*  " Y*  THEN  COTO  120 

7340 

IF 

AS 

-  *A-7“  THEN  UT  »  0 

7330 

IF 

AS 

»  "A- 10*  THEN  UT  -  0 

7660 

IF  R1S 

-  "YES 

*  THEN  COTO  1 

7360 

IF 

AS 

»  * A-37"  THEN  UT  -  0 

20 

7370 

IF 

AS 

-  “B-32*  THEN  UT  *  . 4 

7670 

IF  R1S 

*5  A 

■  *<Y> 

THEN  COTO  1 

7380 

IF 

AS 

«  *FB- 1 1 1  *  THEN  UT  * 

7680 

C.\J 

PRINT  s 

PRINT 

s  PRINT  "PROC 

0 

RAM  END* 

7390 

IF 

AS 

-  “H-l"  THEN  UT  ■  0 

7690 

END 

7400 

IF 

AS 

«  *H-3"  THEN  UT  »  0 

7700 

LET  SI 

*  SI  ♦ 

El 

7410 

IF 

AS 

«  "H-33*  THEN  UT  *  0 

7710 

LET  S2 

«  S2  ♦ 

E2 

7420 

LET  A 1 

■  Al  •  TF  *  UT 

7720 

LET  S3 

«  S3  + 

E3 

7430 

LET  El 

-  4367  *  Al  *  NA  /  1 

7730 

LET  S4 

=  S4  + 

E4 

000 

7740 

LET  S3 

=  S3  ♦ 

E3 

7440 

LET  E2 

*  132  *  Al  •  NA  /  10 

7730 

RETURN 

00 

7430  LET  E3  -  113  •  A1  *  NA  /  10 


00 

7460  LET  E4  «  1.1  *  A1  *  NA  /  10 
00 

7470  LET  E3  »  7.1  •  A1  •  NA  /  10 
00 

7480  COSUB  7700 

7490  HOME  :  INPUT  "IF  YOU  WOULD 
LIKE  TO  PRINT  tOUR  RESULTS  0 
N  THE  PRINTER. ' ENTER  <Y>,  OT 
HERWISE  El'ffEF  <N>.";P* 
7300  IF  PS  =*  "N"  THtfil  COTO  7330 

7310  IF  PS  «  "NO"  THEN  COTO  733 
0 

7320  IF  PS  »  “ < N > J  tHfcN  COTO  73 
30 

7330  PRINT  :  INPUT  "MAKE  SURE  YO 
UR  PRINTER  IS  TURNED  ON  AND 
IS  ON  LINE.  IF  YOUR  PRINTER 
IS  TURNED  ONPRESS  RETURN .  *  j  R 

• 

7340  PR#  1 

7330  HOME  !  PRINT  TAB<  7 ) "TOTAL 
ACE  EMISSIONS  FROM  ALL" 
7360  PRINT  TAB<  13>A#j*  LTO'S  ( 
KC )  " 

7370  PRINT  TAB<  31" . 
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